home *** CD-ROM | disk | FTP | other *** search
- object FrmMain: TFrmMain
- Left = 236
- Top = 184
- Width = 366
- Height = 177
- BorderIcons = [biSystemMenu, biMinimize]
- Caption = 'FrmMain'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object PTFrame1: TPTFrame
- Left = 0
- Top = 0
- Width = 358
- Height = 9
- FrameStyle = ptfsHorzLine
- Align = alTop
- end
- object Label2: TLabel
- Left = 8
- Top = 8
- Width = 345
- Height = 121
- AutoSize = False
- Caption =
- 'This tests the internationalisation support of the Shell Control' +
- ' Pack.'#10#10'NOTE: Only strings explicitly declared in the SCP code w' +
- 'ill be translated. Strings provided by Windows will reflect the ' +
- 'language of the operating system.'#10#10'When this demo is built with ' +
- 'Delphi 3 you can change the translation DLL with the File|Overri' +
- 'de language... menu option.'
- WordWrap = True
- end
- object MainMenu1: TMainMenu
- Left = 192
- Top = 8
- object File1: TMenuItem
- Caption = '&File'
- ShortCut = 0
- object Exit1: TMenuItem
- Caption = 'E&xit'
- ShortCut = 0
- OnClick = Exit1Click
- end
- end
- object Test1: TMenuItem
- Caption = '&Test'
- ShortCut = 0
- object Opendialog1: TMenuItem
- Caption = '&Open dialog...'
- ShortCut = 0
- OnClick = Opendialog1Click
- end
- object Savedialog1: TMenuItem
- Caption = '&Save dialog...'
- ShortCut = 0
- OnClick = Savedialog1Click
- end
- object Folderbrowsedialog1: TMenuItem
- Caption = '&Folder browse dialog...'
- ShortCut = 0
- OnClick = Folderbrowsedialog1Click
- end
- end
- end
- object PTOpenDlg1: TPTOpenDlg
- Options = [ptofAllowMultiselect, ptofFileMustExist, ptofNoReadOnlyReturn, ptofAllowTree, ptofShowHints, ptofOleDrag, ptofOleDrop]
- Filter = 'PAS files (*.pas;*.dpr;*.inc)|*.pas;*.dpr;*.inc|All files (*)|*'
- FilterIndex = 2
- FormSplitterPos = 199
- Left = 224
- Top = 8
- end
- object PTSaveDlg1: TPTSaveDlg
- Options = [ptofCreatePrompt, ptofHideReadOnly, ptofOverwritePrompt, ptofAllowTree, ptofShowHints, ptofOleDrag, ptofOleDrop]
- Left = 256
- Top = 8
- end
- object PTFolderBrowseDlg1: TPTFolderBrowseDlg
- Left = 288
- Top = 8
- end
- end
-